home *** CD-ROM | disk | FTP | other *** search

---

/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Frontier 4.0.1 / Frontier user guide (html) / tourpix / tour40.gif

< prev

next >

Graphics Interchange Format  |  1996-01-24  |  3KB  |  393x166  |  1-bit (2 colors)

Labels: text | screenshot | font
OCR: on doGather (path) local (f) fileloop (f in path) << loop over all the files in the path · if file.isFolder (f) «it's a folder, recurse if f != destfolder «don't go into the new folder dogather (f) .::: else «it's a file msg (file.fileFromPath (f)) if recently Changed (f) «it matches the local script's criteria file.new Alias (f, destfolder + file.fileFromPath (f)) «create the alias ctgathered++

---